home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / os2 / xdsn217.zip / BIN / xdsdesk.cmd < prev    next >
OS/2 REXX Batch file  |  1996-07-10  |  3KB  |  124 lines
  1. /*  */
  2.  
  3. Call RxFuncAdd 'SysLoadFuncs','RexxUtil','SysLoadFuncs'
  4. Call SysLoadFuncs
  5.  
  6. parse source . . home
  7. home = left(home,lastpos('\',home)-1)      /* Strip "\<cmd-name>" */
  8. home = left(home,lastpos('\',home)-1)      /* Strip "\BIN" */
  9.  
  10. say "This script will create WPS objects for XDS"
  11.  
  12. classname = 'WPFolder'
  13. title     = 'XDS (pre-release)'
  14. location  = '<WP_DESKTOP>'
  15. setup     = 'OBJECTID=<XDS_FOLDER>;OPEN=DEFAULT;ICONFILE='home'\BIN\XDSFOLD.ICO'
  16. call Create
  17.  
  18. classname = 'WPProgram'
  19. title     = 'XDS'
  20. location  = '<XDS_FOLDER>'
  21. setup     = 'OBJECTID=<XDS_EXE>;EXENAME='home'\BIN\XDS.EXE;PROGTYPE=PM;startupdir='home
  22. call Create
  23.  
  24. classname = 'WPProgram'
  25. title     = 'Readme 1st'
  26. location  = '<XDS_FOLDER>'
  27. setup     = 'OBJECTID=<XDS_README1ST>;EXENAME=E.EXE;PROGTYPE=PM;PARAMETERS=README.1ST;startupdir='home
  28. call Create
  29.  
  30. classname = 'WPFolder'
  31. title     = 'Readme 2nd'
  32. location  = '<XDS_FOLDER>'
  33. setup     = 'OBJECTID=<XDS_README2ND>;'
  34. call Create
  35.  
  36. text  = 'xds'
  37. title = 'License Policy'
  38. call CreateTxt
  39.  
  40. text  = 'whatsnew'
  41. title = "What's New"
  42. call CreateTxt
  43.  
  44. text  = 'intro'
  45. title = 'Introduction'
  46. call CreateTxt
  47.  
  48. text  = 'samples'
  49. title = 'Samples'
  50. call CreateTxt
  51.  
  52. text  = 'os2api'
  53. title = 'OS/2 API Support'
  54. call CreateTxt
  55.  
  56. text  = 'debug'
  57. title = 'Debugging'
  58. call CreateTxt
  59.  
  60. text  = 'problems'
  61. title = 'Known Problems'
  62. call CreateTxt
  63.  
  64. text  = 'bench'
  65. title = 'Benchmarks'
  66. call CreateTxt
  67.  
  68. text  = xlib
  69. title = 'xLib Documentation'
  70. call CreateTxt
  71.  
  72. classname = 'WPProgram'
  73. title     = "XDS User's Guide"
  74. location  = '<XDS_FOLDER>'
  75. setup     = 'OBJECTID=<XDSUG_INF>;EXENAME=VIEW.EXE;PROGTYPE=PM;PARAMETERS=XDSUG.INF;startupdir='home'\DOC'
  76. call Create
  77.  
  78. classname = 'WPProgram'
  79. title     = 'ISO Modula-2'||x2c('0a')||'Language Rerefence'
  80. location  = '<XDS_FOLDER>'
  81. setup     = 'OBJECTID=<ISOM2_INF>;EXENAME=VIEW.EXE;PROGTYPE=PM;PARAMETERS=ISOM2.INF;startupdir='home'\DOC'
  82. call Create
  83.  
  84. classname = 'WPProgram'
  85. title     = 'ISO Modula-2'||x2c('0a')||'Library Reference'
  86. location  = '<XDS_FOLDER>'
  87. setup     = 'OBJECTID=<ISOLIB_INF>;EXENAME=VIEW.EXE;PROGTYPE=PM;PARAMETERS=ISOLIB.INF;startupdir='home'\DOC'
  88. call Create
  89.  
  90. if SysCreateShadow(home'\SAMPLES', '<XDS_FOLDER>') = 0 then
  91.   say "Error creating Samples shadow"
  92.  
  93. /*********
  94.  
  95. classname = 'WPProgram'
  96. title     = 'Build Sample Module'
  97. location  = '<XDS_FOLDER>'
  98. setup     = 'OBJECTID=<XC_EXE_M>;EXENAME='home'\BIN\XC.EXE;PROGTYPE=WINDOWABLEVIO;PARAMETERS="=m";STARTUPDIR='home'\SAMPLES;NOAUTOCLOSE=YES;ASSOCFILTER=*.MOD,*.OB2;ICONFILE='home'\BIN\XDSMAKE.ICO'
  99. call Create
  100.  
  101. classname = 'WPProgram'
  102. title     = 'Build Sample Project'
  103. location  = '<XDS_FOLDER>'
  104. setup     = 'OBJECTID=<XC_EXE_P>;EXENAME='home'\BIN\XC.EXE;PROGTYPE=WINDOWABLEVIO;PARAMETERS="=p";STARTUPDIR='home'\SAMPLES;NOAUTOCLOSE=YES;ASSOCFILTER=*.PRJ;ICONFILE='home'\BIN\XDSMAKE.ICO'
  105. call Create
  106.  
  107. *********/
  108.  
  109. call SysDropFuncs
  110. Exit
  111.  
  112. CreateTxt:
  113.   classname = 'WPProgram'
  114.   location  = '<XDS_README2ND>'
  115.   setup     = 'OBJECTID=<XDS_'text'>;EXENAME=E.EXE;PROGTYPE=PM;PARAMETERS='text'.TXT;startupdir='home'\DOC'
  116.   call Create
  117.   return
  118.  
  119. Create:
  120.   result = SysCreateObject(classname, title, location, setup, 'U')
  121.   if result = 1 then say  'Created: 'title
  122.   else             say  'Not created: 'title' !!! Return code='result
  123.   return
  124.